home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS066.dsk / CALORIE COUNTING PROGRAM.bas < prev    next >
BASIC Source File  |  2012-02-16  |  8KB  |  157 lines
  1. 90  HOME 
  2. 95  REM  CALORIE COUNTING PROGRAM
  3. 100  REM  START = FRE(0) 8188
  4. 105  VTAB 10
  5. 110  PRINT  TAB( 08): PRINT "CALORIE COUNTING PROGRAM"
  6. 115  PRINT : PRINT  TAB( 12): PRINT "BY PAUL A. PAGE"
  7. 120  PRINT : PRINT  TAB( 14): PRINT "JULY 2,1978"
  8. 125  FOR I = 1 TO 2000: NEXT I
  9. 950  SPEED= 200
  10. 1000  REM  PROGRAM STARTS HERE
  11. 1003  POKE 34,0
  12. 1005  HOME : VTAB 3
  13. 1010  PRINT "THIS PROGRAM ALLOWS YOU TO DETERMINE"
  14. 1015  PRINT "RAPIDLY THE CALORIE VALUE OF ANY FOOD"
  15. 1020  PRINT "OR OF A LIST OF FOODS SUCH AS A MEAL."
  16. 1023  PRINT 
  17. 1025  PRINT "IT ALSO CAN BE USED TO FIND OUT THE "
  18. 1030  PRINT "CALORIE VALUE OF A SERVING OF FOOD "
  19. 1035  PRINT "FROM YOUR FAVORITE RECIPE."
  20. 1100  PRINT 
  21. 1120  PRINT "IF YOU WANT TO KNOW THE CALORIE VALUE"
  22. 1125  PRINT "OF A SERVING IN A RECIPE THEN TYPE"
  23. 1130  FLASH : PRINT "CHECK";: NORMAL : PRINT " WHEN ASKED FOR FOOD ITEM."
  24. 1132  PRINT : PRINT "IF YOU WANT TO CLEAR THE COUNTERS AND"
  25. 1134  PRINT "THE PRINT OUT LIST THEN TYPE ";: FLASH : PRINT "CLEAR": NORMAL 
  26. 1135  PRINT 
  27. 1140  PRINT "PLEASE TYPE ";: FLASH : PRINT "STOP";: NORMAL : PRINT " WHEN YOU HAVE FINISHED USING THE PROGRAM"
  28. 1160  PRINT : PRINT "IF YOU WANT A PRINT OUT OF ALL THE"
  29. 1163  PRINT "DATA IN FILE TYPE ";: FLASH : PRINT "TOTAL";: NORMAL : PRINT " PLEASE."
  30. 1165  PRINT 
  31. 1167  POKE 50,63
  32. 1168  PRINT "HIT ANY KEY TO CONTINUE.": GET U1$
  33. 1169  NORMAL 
  34. 1170  HOME : PRINT "FOOD ITEM","AMOUNT","CALORIES"
  35. 1180  POKE 34,15
  36. 1190  VTAB 16
  37. 1200  PRINT : PRINT 
  38. 1205  INPUT "WHAT FOOD ARE YOU LOOKING FOR ";F$
  39. 1210  HOME 
  40. 1219  REM 
  41. 1220  REM  HERE WE CHECK DATA FOR INPUT
  42. 1221  REM 
  43. 1225  RESTORE 
  44. 1250  IF F$ = "STOP"  THEN 10000
  45. 1255  IF F$ = "CLEAR"  THEN T = 0:R = 0: POKE 34,0: GOTO 1170
  46. 1260  IF F$ = "CHECK"  THEN  GOTO 2000
  47. 1270  IF F$ = "TOTAL"  THEN Y = 0: GOTO 3000
  48. 1300  FOR I = 1 TO 150
  49. 1325  READ M$,M1$,M
  50. 1350  IF F$ = M$  THEN 1500
  51. 1375  NEXT I
  52. 1395  REM 
  53. 1396  REM  HERE WE TELL USER NO
  54. 1397  REM 
  55. 1400  PRINT "<CTRL-C><CTRL-G><CTRL-G><CTRL-G><CTRL-G> I AM ";: FLASH : PRINT "SORRY": NORMAL : PRINT "BUT ";F$;" IS NOT IN MY MEMORY BANK"
  56. 1415  PRINT 
  57. 1425  GOTO 1200
  58. 1429  REM 
  59. 1430  REM  RETURN FOR MORE INPUT
  60. 1431  REM 
  61. 1495  REM  
  62. 1496  REM  PRINT DATA
  63. 1497  REM 
  64. 1500  PRINT 
  65. 1505  POKE 34,0
  66. 1515 Y = Y +1
  67. 1516  IF Y = 14  THEN  HOME :Y = 1: PRINT "FOOD ITEM","AMOUNT","CALORIES"
  68. 1517  VTAB Y +1
  69. 1520  PRINT M$,M1$,M
  70. 1522  POKE 34,15
  71. 1523  VTAB 16
  72. 1524  HOME 
  73. 1525  PRINT " HOW MANY ";M1$;" ARE YOU GOING TO USE ";: INPUT N
  74. 1530 N1 = N *M
  75. 1550 T = T +N1
  76. 1555 R = R +N1
  77. 1557  PRINT 
  78. 1560  PRINT "CALORIES SO FAR THIS RECIPE "R
  79. 1565  PRINT "TOTAL CALORIES SO FAR "T
  80. 1600  GOTO 1200
  81. 2000  REM  FIGURE RECIPE SERVING
  82. 2001  REM 
  83. 2010  HOME : VTAB 16
  84. 2020  PRINT "HOW MANY PORTIONS DOES THIS RECIPE "
  85. 2025  INPUT "MAKE  ";P
  86. 2030 R1 = R/P
  87. 2040  PRINT : PRINT 
  88. 2050  PRINT "EACH PORTION SERVED BY THIS RECIPE"
  89. 2055  PRINT "CONTAINS ";R1" CALORIES"
  90. 2060  PRINT : PRINT 
  91. 2070  PRINT "DO YOU HAVE ANY MORE FOOD ITEMS TO ADD"
  92. 2075  PRINT "TO THIS RECIPE SERVING  Y/N ";: INPUT U2$
  93. 2080  IF U2$ = "Y"  THEN 1557
  94. 2085  LET R = 0:R1 = 0
  95. 2090  GOTO 1557
  96. 3000  REM 
  97. 3001  REM  TOTAL PRINT OUT SUB
  98. 3002  REM  TO SET COUNTING LOOP TO SAME VALUE AS 1300
  99. 3003  REM 
  100. 3004  POKE 34,0
  101. 3005  HOME 
  102. 3007  SPEED= 255
  103. 3010  PRINT "ITEM","AMOUNT","CALORIES"
  104. 3020  POKE 34,2
  105. 3100  FOR I = 1 TO 150
  106. 3105  REM  
  107. 3107  REM  DATA COUNTER FOR TEST
  108. 3108  REM  TOTAL IN O MUST BE IN LINES 1300 AND 3100
  109. 3110 O = O +1
  110. 3120  READ M$,M1$,M
  111. 3130  PRINT M$,M1$,M
  112. 3140 K = K +1
  113. 3150  IF K = 18  THEN  PRINT : PRINT "HIT ANY KEY TO CONTINUE LIST": GET U2$: HOME :K = 0
  114. 3160  NEXT I
  115. 3162  POKE 34,0
  116. 3165  PRINT : PRINT 
  117. 3168 K = 0
  118. 3170  PRINT "THIS IS ALL THE DATA IN MY MEMORY BANK"
  119. 3180  PRINT "HIT ANY KEY TO RETURN TO MENU": GET U2$
  120. 3185  RESTORE 
  121. 3187  SPEED= 200
  122. 3190  GOTO 1000
  123. 4000  REM 
  124. 4001  REM  DATA STARTS HERE
  125. 4002  REM  TO SET COUNTING NUMBER IN SEARCH LOOP OF 1300 (FOR I=1 TO N)  
  126. 4003  REM  
  127. 4004  REM  BEVERAGES
  128. 4005  DATA   COKE,6 OZ,78,GINGERALE,8 OZ,80,PEPSI,8 OZ,106,MILKSHAKE,10 OZ,421,TOMATO JUICE,3.5 0Z,19,V8 JUICE,3.5 OZ,17
  129. 4010  DATA  EGGNOG,6 OZ,233,SKIM MILK,8 OZ,116,MILK,8 OZ,159,WHITE BREAD,1 SLICE,62,DOUGHNUT,1 AVE,125,PANCAKES,2-4'CAKES,322
  130. 4020  DATA  FRENCH TOAST, 1 SLICE,183,BREAD,1 SLICE, 62,HAMBURGER ROLL,1 EA,89,WAFFLE,1 5 IN,209,MILK CHOCOLATE,1 OZ BAR,152,CEREAL,1 CUP,100,BAKED BEANS,1 CUP,275
  131. 4030  DATA    CHOC CH COOKIE,1EA,51,VANILLA WAFER,1 EA,15,ANIMAL CRACKER,1EA,9,BUTTER,1 TBSP,100,AMERICAN CHEESE,1OZ,112,COTTAGE CHEESE,1/2 CUP, 120 
  132. 4040  DATA  CREAM CHEESE,1 OZ,105,MARGARINE,1 TBSP,72,BROWNIE,1 EA,146,CUPCAKE,1 EA,175,JELLO, 1/2 CUP,81,ICE CREAM,1/3 CUP,174, ICE MILK,1/3 CUP,137
  133. 4050  DATA    CHERRY PIE,1 SLICE,258,APPLE PIE,1 SLICE,255,POPSICLE, 1-3 OZ, 95,SHERBERT,1/3 CUP,152,COOL WHIP, 1 TBSP,16,DIET SAL DRESS,1 TBSP,10,EGGS,1 LGE,88 
  134. 4060  DATA  FRIED EGG, 1 EA,120,SCRAMBLED EGG,1 EA,135,TUNA FISH,3 1/2 OZ,145,CRABMEAT,4 OZ,86,LOBSTER,12 OZ,308,FRIED SHRIMP, 3 1/2 OZ,225
  135. 4070  DATA  CRAB CAKE,1 EA, 110,TUNA SALAD,1 SERV,170,APPLE, 1 EA,70,BANANA,1 EA,85,GRAPEFRUIT, HALF, 41,GRAPES,3 1/2 OZ,69,ORANGE,1 EA,73,PINEAPPLE,1 SLICE,39
  136. 4080  DATA  RAISINS,3 1/2 OZ, 289,STRAWBERRIES, 1 EA,3,WATERMELON,1/16 MELON,234,BARBECUE SAUCE,1 OZ,26,BREAD CRUMBS, 1/2 CUP,175,APPLE JUICE,4 OZ, 56,CRANBERRY JUICE,3 1/2 OZ, 65
  137. 4090  DATA  LEMON JUICE, 1 TBSP,4,LEMONADE,8 OZ,103,ORANGE JUICE, 4 OZ, 58,PINEAPPLE JUICE, 6 OZ, 104,BACON,1 SLICE,50,STEAK,6 OZ, 200,HAM,2 SLICES,167
  138. 4100  DATA  CALVES LIVER,1 SLICE,74,CHICKEN LIVER,1 EA, 74,HAMBURGER, 4 OZ,224,PORK CHOP, 6 OZ, 314, FRITOS,1 OZ,164,DORITOS,1 OZ,149,POPCORN,1 CUP ,54
  139. 4120  DATA  POTATO CHIPS, 1 EA, 13, PRETZELS, 3  1/2 OZ, 390,ALMONDS, 1 OZ DRY RST, 180,WALNUTS,1 TBSP,49,PEANUTS, 1 OZ DRY RST, 179 
  140. 4130  DATA  HOT DOG, 1 EA, 124, HOT DOG ROLL, 1 EA,113,PIZZA,1 SLICE,185,CRANBERRY SAUCE, 1 TBSP, 29,MUSTARD,1 TEAS,11,OLIVES,2,15,SWEET PICKLE,1 TBSP,15
  141. 4150  DATA  SUGAR,1 TEAS,46,SUGAR,1 CUP,770,APPLESAUCE,1/2 CUP,116,AVOCADOS,1/2 EA,185,BACON,4 OZ,696,GREEN BEANS,1/2 CUP,16,LINA BEANS,1/2 CUP,89,CHUCK STEAK,4 OZ,329,T BONE STEAK,4 OZ,539
  142. 4170  DATA  BEETS,1/2 CUP,27,BOLOGNA,4 OZ,312,BROCCOLI,1 CUP SPEARS,39,PEANUTBUTTER,1 TEAS,82 ,CANTALOPE,1/2 MELON,58,CARROTS,1 MEDIUM,21,CASHEW NUTS,1/4 LB,639,CATSUP,1 TBLS,18,CELERY,1 STALK,7,CHICKEN,4 OZ BROILED,155,COLESLAW,4 OZ,108 
  143. 4190  DATA  SALTINES,1 OZ,123,CUCUMBER,1 MEDIUM,29,EGGPLANT,1/4 LB BOIL,19,FLOUR,1 CUP,449,GRAPEFRUIT,1/2 MEDIUM,58,GRAPE JUICE,6 OZ,122,CHEWING GUM,1 STICK,9,JELLIE-JAM,1 TEAS,55,LEMON,1 AVERAGE,19
  144. 4210  DATA  LETTUCE,1 HEAD 4 IN,59,LETTUCE,3 LEAVES,6,LIVERWURST,4 OZ,350,MACARONI,1 CUP,175,MUSHROOMS,1/2 LB,61 LOMEM:   AND  > > STORE   NOT   STEP   STEP  ^  THEN   AND  RND LOMEM:  POKE  STORE / EXP PDL LOMEM:  PRINT  DEF  DEF ,SALAD OIL,1 TABL,124,ONION,1/2 LB,79,PEAR,1 AVE,100,PEAS,1/2 CUP,57
  145. 4230  DATA  PECANS,1 TEAS,51,GREEN PEPPER,1 AVERAGE,14,PICKLE RELISH,1 TEAS SWEET,21,POTATOE,1 SMALL,85,FRENCH FRIES,10 EACH,156,RICE,1 CUP,187,ROLLS,2 OZ EA,170,TARTAR SAUCE,1 TEAS,74,SAUSAGE,4 OZ,481,POLISH DOG,4 OZ,346,BEAN SOUP,1 CUP,167
  146. 4250  DATA  CHICKEN SOUP,1 CUP,67,MUSHROOM SOUP,1 CUP,133,ONION SOUP,1 CUP,64,PEA SOUP,1 CUP,142,TOMADO SOUP,1 CUP,86,VEGETABLE SOUP,1 CUP,77,POTATO SOUP,1 CUP,179,SPAGHETTI,1 CUP W/SAUCE,172,SPINACH,1 CUP,43,ZUCCHINI,1 CUP,25
  147. 4270  DATA   TURKEY,4 OZ,221,TOMATOE,1 SMALL,22,MACARONI SAL,1 CUP,355,POTATO SALID,1 CUP,99
  148. 10000  POKE 34,0: HOME 
  149. 10020  VTAB 13
  150. 10030  PRINT "THANK YOU FOR CHECKING YOUR DIET WITH "
  151. 10035  PRINT 
  152. 10040  PRINT "US TODAY. PLEASE USE THIS PROGRAM AS "
  153. 10045  PRINT 
  154. 10050  PRINT "        MUCH AS YOU LIKE."
  155. 10060  PRINT : PRINT  TAB( 9)
  156. 10065  PRINT "G O O D B Y E "
  157. 10070  END